BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Ss-Sz/Summarizer.cpt/Summarizer 1.3/background_2737.txt

Text File | 1987-12-25 | 15.0 KB | 657 lines

-- background: 2737 from stack: in.3
-- bmap block id: 3719
-- flags: 0000
-- background id: 0
-- name: BlankTopicBkgnd


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=1 right=16 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  hide tool window
  answer "Perhaps you accidently pressed Quit?" with "Yes I did" or "No I didn't"
  if it is "No I didn't" then domenu "Quit Hypercard"
end mouseUp




-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=19 top=0 right=17 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: HeaderFld


-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=19 right=33 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Chapter List
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  go to card "ChptLstCrd"
end mouseUp




-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=36 right=50 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Topic List
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  global Chapt
  go to card Chapt
end mouseUp




-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=53 right=68 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Page
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  if not(short name of this card is "@") then
    answer "Use ‘Delete’ to delete ‘table of contents page’"
    exit mouseup
  end if
  answer "About to Delete the current page..." with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  if short name of this card is "@" then
    set cursor to 4
    set lockscreen to "true"
    domenu "delete card"
    put short name of this card into RCard
    if RCard is "@" then
    else
      go to prev card
      choose button tool
      click at loc of button "NxtPg"
      domenu "clear button"
      choose browse tool
    end if
    if the number of card fields is 1
    then put IBeam("TxtFld") into dummy
    flash 2
  end if
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=69 right=84 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Page
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  answer "Insert new page following this one?" with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  set cursor to 4
  MakePage
  flash 2
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=87 right=102 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GetPaintDoc
----- HyperTalk script -----
on mouseUp
  if the number of card fields is 1 then
    beep 1
    answer "About to import Paint file - A text field exits." with "Cancel" or "OK"
    if it is "Cancel" then
      exit mouseup
    end if
  else
    answer "About to import Paint file" with "Cancel" or "OK"
    if it is "Cancel" then exit mouseup
  end if
  put "Choose a Paint file to import."
  wait 2 seconds
  choose Text Tool
  domenu "Import Paint..."
  domenu "Select All"
  domenu "Transparent"
  choose browse tool
  choose select tool
  show tool window
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=103 right=119 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MakePaintDoc
----- HyperTalk script -----
on mouseUp
  answer "Export this window to a MacPaint file?" with "Yes" or "Cancel"
  if it is "Yes" then
    choose text tool
    domenu "Export Paint..."
    choose browse tool
  end if
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=120 right=136 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ShowHide Tools
----- HyperTalk script -----
on mouseUp
  get visible of tool window
  if it is false then
    show tool window
  else
    hide tool window
  end if
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=291 right=306 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PrintOptions
----- HyperTalk script -----
on mouseUp
  if short name of this card is "NtTmplt" then exit mouseup
  answer "Choose a Print Option" with "This Card" or "All Cards" or "Cancel"
  put short name of this card into WasHere
  if it is "Cancel" then exit mouseup
  if it is "All Cards" then
    set lockscreen to true
    go to card "TpcLstTmplt"
    repeat while true
      go to next card
      if short name of this card is "NtTmplt" then
        go to card WasHere
        exit mouseup
      end if
      domenu "print card"
    end repeat
    exit mouseup
  end if
  if it is "This Card"
  then domenu "print card"
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=155 right=170 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FontSpacing
----- HyperTalk script -----
on mouseUp
  if the number of card fields is 0 then
    answer "Can't change font spacing - no field!"
    exit mouseup
  else
    answer "Choose a Text Font Style" with "Mono-spaced" or "Proportional" or "Cancel"
    if it is "Mono-spaced" then
      set textFont of card field "TxtFld" to Monaco
      put IBeam("TxtFld") into dummy
    end if
    if it is "Proportional"
    then set textFont of card field "TxtFld" to Geneva
    if it is "Cancel" then
      put IBeam("TxtFld") into dummy
      exit mouseup
    end if
    if the number of card fields is 1
    then put IBeam("TxtFld") into dummy
  end if
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=171 right=187 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ChangeWindUse
----- HyperTalk script -----
on mouseUp
  global WindType

  if the number of card fields is 0 then
    put "Create a new text field?" into prompt
    answer prompt with "Cancel" or "OK"
    if it is "Cancel" then exit mouseup
  end if

  put "Set Text Field Format to..." into prompt
  answer prompt with "Scroll" or "Cancel" or "Reg Text"
  if it is "Cancel" then
    put IBeam("TxtFld") into dummy
    exit mouseup
  else
    put it into WindType
  end if


  set lockscreen to "true"
  if WindType is "Scroll" or it is "Reg Text" then
    if the number of card fields is 0 then
      MakeField
      flash 2
    else
      get style of card field "TxtFld"
      if it is "transparent" and WindType is "Scroll" then set Style of card field "Txtfld" to scrolling
      if it is "scrolling" and WindType is "Reg Text" then
        answer "Any text beyond the window will be Hidden!" with "Go Ahead" or "Cancel"
        if it is "go ahead" then
          set Style of card field "Txtfld" to transparent
        else
          --  Cancel
        end if
      end if
      put IBeam("TxtFld") into dummy
    end if
  end if
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=188 right=204 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DeleteFld
----- HyperTalk script -----
on mouseUp
  if the number of card fields is 0 then
    answer "There is no text field to delete!"
    exit mouseup
  else
    answer "Delete this text field?" with "Cancel" or "OK"
    if it is "OK" then
      set lockscreen to "true"
      if the number of words in card field "TxtFld" > 0 then
        answer "Delete a field containing text?" with "Cancel" or "OK"
        if it is "Cancel" then exit mouseup
      end if
      choose field tool
      click at loc of card field "Txtfld"
      domenu "clear field"
      choose browse tool
      flash 2
    end if
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=205 right=221 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TextFile
----- HyperTalk script -----
on mouseUp
  put short name of this card into WasHere
  answer "Send all text fields to textfile?" with "Cancel" or "OK"
  if it is empty then exit mouseup
  if it is "OK" then
    get long name of this stack
    delete first word of it
    delete first char of it
    delete last char of it
    put it & ".txt" into prompt
    beep 1
    put "You can change volume,fldr, or stack name from default"
    show msg
    ask "Export text to what file?" with prompt
    if it is empty then exit mouseup
    beep 1
    put "Please wait... if sound on,  2 beeps signal finish"
    put it into filename
    set lockscreen to true
    open file fileName
    go to card "TpcLstTmplt"
    repeat while true
      go to next card
      if short name of this card is "NtTmplt" then
        close file fileName
        hide msg
        go to card WasHere
        beep 2
        exit mouseup
      end if
      if the number of card fields is 1 then
        write card field "txtfld" to file fileName
        if short name of this card is "@" then
          write return to file fileName
        else
          write return & return to file fileName
        end if
      end if
    end repeat
  end if
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=256 right=271 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PasteBtn
----- HyperTalk script -----
on mouseup
  global ptype
  type "v" with commandkey
  if ptype is "paste picture"
  then show tool window
end mouseup


-- part 50 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=273 right=289 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ScrapBtn
----- HyperTalk script -----
on mouseUp
  domenu "Scrapbook"
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=137 right=152 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SurSelect
----- HyperTalk script -----
on mouseUp
  global ptype,Xit
  put false into Xit
  answer "About to Cut Pict to Clipboard..." with "Cancel" or "OK"
  if it is "Cancel" then exit mouseup
  choose select tool
  drag from 0,0 to 512,342 with commandKey
  type "x" with commandKey
  if Xit then exit mouseup
  choose browse tool
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=222 right=238 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TxtImport
----- HyperTalk script -----
on mouseUp
  global WindType, Xit, fileName
  if the number of card fields is 0 then
    answer "There is no field to import text to!" with "OK"
    exit mouseup
  end if

  get the long name of this stack
  delete first word of it
  delete first char of it
  delete last char of it
  put the number of chars in it into endpos
  put offset(":", it) into startpos
  put empty into char startpos to endpos of it
  put it into volNam

  put volNam & ":File Name Goes Here" into prompt
  ask "Import text from what file?" with prompt
  if it is empty then exit mouseup
  put it into fileName
  open file fileName

  SendTxtToFld
  if Xit then
    close file fileName
    hide msg
    exit mouseup
  end if

  repeat while true
    answer "Do you want to read more to this page?" with "Finished" or "Read More" or "Next Page"

    if it is "Finished" then
      close file fileName
      hide msg
      exit mouseup
    end if

    if it is "Next Page" then
      MakePage
      put "Set Text Field Format to..." into prompt
      answer prompt with "Scroll" or "Reg Text"
      put it into WindType
      MakeField
      set lockscreen to false
    end if

    SendTxtToFld
    if Xit then
      close file fileName
      hide msg
      exit mouseup
    end if
  end repeat
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=239 right=255 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FtoC
----- HyperTalk script -----
on mouseUp
  if the selection is empty then
    answer "You must select text to copy!" with "OK"
    exit mouseup
  end if
  type "c" with commandkey
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=308 right=322 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MenuBtn
----- HyperTalk script -----
on mouseUp
  type NumtoChar(32) with commandKey
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=325 right=342 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BkgndBtn
----- HyperTalk script -----
on mouseUp
  type "b" with commandKey
end mouseUp